(safe-documentation): Don't crash on byte-compiled macro.

diff --git a/lisp/apropos.el b/lisp/apropos.el
index 6c2568eca5569b06fd7fb756561598891e0109b5..f147b0b182a21f8a2080cd67f28b540892aba882 100644 (file)
--- a/lisp/apropos.el
+++ b/lisp/apropos.el
@@ -329,10 +329,10 @@ Will return nil instead."
     (setq function (if (fboundp function)
                       (symbol-function function)
                     0)))
+  (if (eq (car-safe function) 'macro)
+      (setq function (cdr function)))
   (if (not (consp function))
       nil
-    (if (eq (car function) 'macro)
-       (setq function (cdr function)))
     (if (not (memq (car function) '(lambda autoload)))
        nil
       (setq function (nth 2 function))